home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 154 / 154.d81 / king puzzle (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  111 lines
  1. 10 poke56,48:poke55,0:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 sys57812"chess font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  4. 40 sys57812"chess sprites",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  5. 50 print"[147]";:poke53280,0
  6. 60 poke53281,10:poke646,0:poke53272,31:gosub870
  7. 70 :
  8. 80 rem  title screen
  9. 90 :
  10. 100 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  11. 110 print"[221]                                      [221]";
  12. 120 print"[221] [176][192][192][192][174]                                [221]";
  13. 130 print"[221] [221]            [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]        [221]";
  14. 140 print"[221] [173][192][192][192][189]        [221]    [221]    [221]    [221]        [221]";
  15. 150 print"[221] [176][192][192][192][174]        [221]    [221]    [221]    [221]        [221]";
  16. 160 print"[221] [221]   [221]        [221]    [221]    [221]    [221]        [221]";
  17. 170 print"[221] [173][192][192][192][189]        [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]        [221]";
  18. 180 print"[221] [176][192][192][192][174]        [221]    [221]    [221]    [221]        [221]";
  19. 190 print"[221] [171][192][178][192][189]        [221]    [221]    [221]    [221]        [221]";
  20. 200 print"[221] [189] [173][192][189]        [221]    [221]    [221]    [221]        [221]";
  21. 210 print"[221] [176][192][174] [176]        [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]        [221]";
  22. 220 print"[221] [221] [221] [221]        [221]    [221]    [221]    [221]        [221]";
  23. 230 print"[221] [189] [173][192][189]        [221]    [221]    [221]    [221]        [221]";
  24. 240 print"[221] [176][192][192][192][174]        [221]    [221]    [221]    [221]        [221]";
  25. 250 print"[221] [171][192][192]          [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]        [221]";
  26. 260 print"[221] [173][192][192][192][189]                                [221]";
  27. 270 print"[221] [176][192][192][192][174]                                [221]";
  28. 280 print"[221] [171][192][178][192][189]                                [221]";
  29. 290 print"[221] [189] [173][192][189]                                [221]";
  30. 300 print"[221]    [176][192][178][192][174][174]  [176][176][192][192][174]   [174] [176][189] [178] [176][192][174] [176][176][192][192][174]  [221]";
  31. 310 print"[221]      [221]  [171][192][192][179][171][192][192]    [171][192][179]  [221] [221] [221] [221][221] [176][174]  [221]";
  32. 320 print"[221]      [177]  [189]  [173][173][192][192][189]   [189] [173][174] [177] [189] [173][192][189][173][192][192][189]  [221]";
  33. 330 print"[221]                                      [221]";
  34. 340 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
  35. 342 fori=217to242:pokei,peek(i)or128:next
  36. 350 gosub940
  37. 352 tq=0:poke53370,0
  38. 354 tq=tq+1:geta$:ifa$=""andtq<200then354
  39. 356 poke53371,0
  40. 358 pokev+21,0
  41. 360 :
  42. 370 rem  instruction screen
  43. 380 :
  44. 390 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  45. 400 print"[221]                                      [221]";
  46. 410 print"[221] [201]n 1922, the famous [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174] [221]";
  47. 420 print"[221] puzzler [200] [197] [196]udeney [221]    [221]    [221]    [221] [221]";
  48. 430 print"[221] proposed this chess [221]    [221]    [221]    [221] [221]";
  49. 440 print"[221] puzzle shown on the [221]    [221]    [221]    [221] [221]";
  50. 450 print"[221] board at the right: [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] [221]";
  51. 460 print"[221]                     [221]    [221]    [221]    [221] [221]";
  52. 470 print"[221] [205]ove the white king[144] [221]    [221]    [221]    [221] [221]";
  53. 480 print"[221] in the  upper right[144] [221]    [221]    [221]    [221] [221]";
  54. 490 print"[221] corner to the lower[144] [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] [221]";
  55. 500 print"[221] left corner with it[144] [221]    [221]    [221]    [221] [221]";
  56. 510 print"[221] never entering  the[144] [221]    [221]    [221]    [221] [221]";
  57. 520 print"[221] center square.[144]      [221]    [221]    [221]    [221] [221]";
  58. 530 print"[221]                     [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189] [221]";
  59. 540 print"[221] [208]awns cannot move.  [193]ll other pieces[144] [221]";
  60. 550 print"[221] move only within the 3x3 chessboard.[144] [221]";
  61. 560 print"[221]                                      [221]";
  62. 570 print"[221] [208]ress (1) to pursue the chess puzzle [221]";
  63. 580 print"[221] without assistance and (2) to view a [221]";
  64. 590 print"[221] computer demonstration of one way to [221]";
  65. 600 print"[221] solve the chess puzzle.  [207]ption?     [221]";
  66. 610 print"[221]                                      [221]";
  67. 620 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  68. 630 print"                                       [157][148] ";:gosub1000
  69. 632 fori=217to242:pokei,peek(i)or128:next
  70. 640 :
  71. 650 rem  input option
  72. 660 :
  73. 670 p=1899:gosub800:poke198,0
  74. 680 poke204,0:poke207,0
  75. 690 geta$:ifa$<"1"ora$>"2"then680
  76. 700 a=val(a$)
  77. 710 print"[147]";:poke204,1:poke1020,a:pokev+21,0:poke53281,0
  78. 720 :
  79. 730 rem  load main program
  80. 740 :
  81. 750 print"[147][146] load"chr$(34)"king.main"chr$(34)","dv:print""
  82. 760 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13:end
  83. 770 :
  84. 780 rem  cursor positioning subroutine
  85. 790 :
  86. 800 print"";:p=p-1024:py=int(p/40):px=p-40*py
  87. 810 ifpythenforpp=1topy:print"";:next
  88. 820 ifpxthenforpp=1topx:print"";:next
  89. 830 p=p+1024:return
  90. 840 :
  91. 850 rem  sprite creation subroutine
  92. 860 :
  93. 870 v=53248
  94. 880 poke2040,192:poke2041,193:poke2042,194:poke2043,195
  95. 890 poke2044,195:poke2045,196:poke2046,196:poke2047,196
  96. 900 fori=39to45step2:pokev+i,1:pokev+i+1,0:next:return
  97. 910 :
  98. 920 rem  activate title sprites
  99. 930 :
  100. 940 pokev,236:pokev+1,84:pokev+2,236:pokev+3,116:pokev+4,236:pokev+5,148
  101. 950 pokev+6,196:pokev+7,148:pokev+8,196:pokev+9,116:pokev+10,196:pokev+11,84
  102. 960 pokev+12,156:pokev+13,84:pokev+14,156:pokev+15,116:pokev+21,255:return
  103. 970 :
  104. 980 rem  activate instruction sprites
  105. 990 :
  106. 1000 pokev,36:pokev+1,76:pokev+2,36:pokev+3,108:pokev+4,36:pokev+5,140
  107. 1010 pokev+6,252:pokev+7,140:pokev+8,252:pokev+9,108:pokev+10,252:pokev+11,76
  108. 1020 pokev+12,212:pokev+13,76:pokev+14,212:pokev+15,108:pokev+16,7:pokev+21,255
  109. 1030 return
  110. 10000 d=peek(186):n$="king puzzle":open15,d,15,"s0:"+n$:close15:saven$,d:end
  111.